home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / Demo Software / Wingz / Scripts / Taxes (.txt) < prev    next >
Encoding:
Wingz Script  |  1989-02-08  |  13.2 KB  |  363 lines  |  [WZSC/WNGZ]
  1. WNGZWZSC01b1
  2. Cancel
  3. tf:doit = 0 quit dialog box
  4. %taxes:doit=1 taxes:str1=ctstring(4,0)
  5. gEnter first name & initial. If joint return, also give spouse's name & initial.  Follow with last name.
  6. Cancel
  7. tf:doit = 0 quit dialog box
  8. %taxes:doit=1 taxes:str1=ctstring(4,0)
  9. OPresent home address (# and street). If a P.O. Box, see page 9 of instructions.
  10. Cancel
  11. tf:doit = 0 quit dialog box
  12. %taxes:doit=1 taxes:str1=ctstring(4,0)
  13. /City, town or post office, state, and ZIP code.
  14. Cancel
  15. tf:doit = 0 quit dialog box
  16. >taxes:doit=1 taxes:str1=ctstring(4,0) taxes:str2=ctstring(5,0)
  17. BEnter your social security number. (Spouse's also, if applicable).
  18. Cancel
  19. tf:doit = 0 quit dialog box
  20. $taxes:doit=1 taxes:str1=ctvalue(4,0)
  21. "Do you want $1 to go to this fund?
  22. #Presidential Election Campaign Fund
  23. Cancel
  24. tf:doit = 0 quit dialog box
  25. $taxes:doit=1 taxes:str1=ctvalue(4,0)
  26. =If joint return, does your spouse want $1 to go to this fund?
  27. #Presidential Election Campaign Fund
  28. Cancel
  29. tf:doit = 0 quit dialog box
  30. $taxes:doit=1 taxes:str1=ctvalue(3,0)
  31. Single return
  32. Married filing jointly
  33. Married filing separate return
  34. *Head of Household (with qualifying person)
  35. Check your filing status
  36. Spouse's full name
  37. Child's full name
  38. d-mon-yyyy
  39. d-mon
  40. mon-yy
  41. mm-dd-yy
  42. mm-dd
  43. hr:mn:scam
  44. hr:mnam
  45. hh:mn:sc
  46. hh:mn
  47.     1986forms
  48. 1040EZ
  49. ,message "1040EZ Form Can Be Installed Here."
  50. 1040A
  51. +message "1040A Form Can Be Installed Here."
  52. *message "1040 Form Can Be Installed Here."
  53. (message "W2 Form Can Be Installed Here."
  54. Tax Tables
  55. +message "TAX TABLES Can Be Installed Here."
  56.     1987forms
  57. 1040EZ
  58. ,message "1040EZ Form Can Be Installed Here."
  59. 1040A
  60. +message "1040A Form Can Be Installed Here."
  61. *message "1040 Form Can Be Installed Here."
  62. (message "W2 Form Can Be Installed Here."
  63. Tax Tables
  64. +message "TAX TABLES Can Be Installed Here."
  65.     1988forms
  66. 1040EZ
  67. ,message "1040EZ Form Can Be Installed Here."
  68. 1040A
  69. +message "1040A Form Can Be Installed Here."
  70. *message "1040 Form Can Be Installed Here."
  71. (message "W2 Form Can Be Installed Here."
  72. Tax Tables
  73. +message "TAX TABLES Can Be Installed Here."
  74. Open...
  75. open dialog
  76. Close
  77. Page Setup...
  78. Page Setup
  79. Page Preview...
  80. Page Preview
  81. Print...
  82. (hide controls Print Dialog show controls
  83.     Cant Undo
  84. Paste
  85. Clear
  86.     Tax Forms
  87.     1986forms
  88.     1987forms
  89.     1988forms
  90. Process Form
  91. Enter Data
  92. call taxes:getinput()
  93. Figure Tax
  94. 9message "Tax Computation Routines Can Be Installed Here."
  95. Print Return
  96. %hide controls print now show controls
  97. taxes
  98. dgask
  99. shownote
  100. spouse
  101. getname
  102. getaddrp
  103. getcity
  104. getssn
  105. sfund-
  106. status
  107. getinput
  108. taxmenu
  109. define doit,str1,str2,ssn,spouse,str3
  110. function getname(n)
  111.     new modal dialog box at (-1,-1) +(5 inch, 2 inch)
  112.     add push button "OK", "Cancel" at (1.5 inch, 1.5 inch) +(2 inch, .5 inch)
  113.     script "tf:doit = 0 quit dialog box"
  114.     select control 1
  115.     dialog default push button
  116.     script "taxes:doit=1 taxes:str1=ctstring(4,0)"
  117.     add text "Enter first name & initial. If joint return, also give spouse's name & initial.  Follow with last name."
  118.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  119.     no line border
  120.     add field at (.1 inch, .7 inch) +(4.8 inch, .5 inch)
  121.     field text n
  122.     doit = 0;
  123.     use dialog box
  124.     if doit 
  125.         put " "&str1 into b8
  126.     end if
  127. end function
  128. function getaddr(n)
  129.     new modal dialog box at (-1,-1) +(5 inch, 2 inch)
  130.     add push button "OK", "Cancel" at (1.5 inch, 1.5 inch) +(2 inch, .5 inch)
  131.     script "tf:doit = 0 quit dialog box"
  132.     select control 1
  133.     dialog default push button
  134.     script "taxes:doit=1 taxes:str1=ctstring(4,0)"
  135.     add text "Present home address (# and street). If a P.O. Box, see page 9 of instructions."
  136.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  137.     no line border
  138.     add field at (.1 inch, .7 inch) +(4.8 inch, .5 inch)
  139.     field text n
  140.     doit = 0;
  141.     use dialog box
  142.     if doit 
  143.         put " "&str1 into b10
  144.     end if
  145. end function
  146. function getcity(n)
  147.     new modal dialog box at (-1,-1) +(5 inch, 2 inch)
  148.     add push button "OK", "Cancel" at (1.5 inch, 1.5 inch) +(2 inch, .5 inch)
  149.     script "tf:doit = 0 quit dialog box"
  150.     select control 1
  151.     dialog default push button
  152.     script "taxes:doit=1 taxes:str1=ctstring(4,0)"
  153.     add text "City, town or post office, state, and ZIP code."
  154.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  155.     no line border
  156.     add field at (.1 inch, .7 inch) +(4.8 inch, .5 inch)
  157.     field text n
  158.     doit = 0;
  159.     use dialog box
  160.     if doit 
  161.         put "  "&str1 into b12
  162.     end if
  163. end function
  164. function getssn(n,ssn)
  165.     new modal dialog box at (-1,-1) +(5 inch, 2.5 inch)
  166.     add push button "OK", "Cancel" at (1.5 inch, 2 inch) +(2 inch, .5 inch)
  167.     script "tf:doit = 0 quit dialog box"
  168.     select control 1
  169.     dialog default push button
  170.     script "taxes:doit=1 taxes:str1=ctstring(4,0) taxes:str2=ctstring(5,0)"
  171.     add text "Enter your social security number. (Spouse's also, if applicable)."
  172.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  173.     no line border
  174.     add field at (.1 inch, .7 inch) +(4.8 inch, .5 inch)
  175.     field text n
  176.     add field at (.1 inch, 1.3 inch) +(4.8 inch, .5 inch)
  177.     field text ssn
  178.     doit = 0;
  179.     use dialog box
  180.     if doit
  181.         put str1 into h8
  182.         if length(str2) >= 9        
  183.             put str2 into h10
  184.         end if
  185.     end if
  186. end function
  187. function fund()
  188.     new modal dialog box at (-1,-1) +(5 inch, 2.5 inch)
  189.     add push button "OK", "Cancel" at (1.5 inch, 2 inch) +(2 inch, .5 inch)
  190.     script "tf:doit = 0 quit dialog box"
  191.     select control 1
  192.     dialog default push button
  193.     script "taxes:doit=1 taxes:str1=ctvalue(4,0)"
  194.     add text "Do you want $1 to go to this fund?"
  195.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  196.     no line border
  197.     add radio button "Yes", "No" at (.1 inch, .7 inch) +(4.8 inch, 1 inch)
  198.     show control title "Presidential Election Campaign Fund"
  199.     doit = 0;
  200.     use dialog box
  201.     if doit 
  202.         if str1=1
  203.             put "X" into f15
  204.             put " " into g15
  205.         else
  206.             put "X" into g15
  207.             put " " into f15
  208.         end if
  209.     end if
  210. end function
  211. function sfund()
  212.     new modal dialog box at (-1,-1) +(5 inch, 2.5 inch)
  213.     add push button "OK", "Cancel" at (1.5 inch, 2 inch) +(2 inch, .5 inch)
  214.     script "tf:doit = 0 quit dialog box"
  215.     select control 1
  216.     dialog default push button
  217.     script "taxes:doit=1 taxes:str1=ctvalue(4,0)"
  218.     add text "If joint return, does your spouse want $1 to go to this fund?"
  219.             at (.1 inch, .1 inch) +(4.8 inch, .5 inch)
  220.     no line border
  221.     add radio button "Yes", "No" at (.1 inch, .7 inch) +(4.8 inch, 1 inch)
  222.     show control title "Presidential Election Campaign Fund"
  223.     doit = 0;
  224.     use dialog box
  225.     if doit 
  226.         if str1=1
  227.             put "X" into f16
  228.             put " " into g16
  229.         else
  230.             put "X" into g16
  231.             put " " into f16
  232.         end if
  233.     end if
  234. end function
  235. function status()
  236.     new modal dialog box at (-1,-1) +(5 inch, 3.5 inch)
  237.     add push button "OK", "Cancel" at (1.5 inch, 3 inch) +(2 inch, .5 inch)
  238.     script "tf:doit = 0 quit dialog box"
  239.     select control 1
  240.     dialog default push button
  241.     script "taxes:doit=1 taxes:str1=ctvalue(3,0)"
  242.     add radio button "Single return","Married filing jointly","Married filing separate return",
  243.           "Head of Household (with qualifying person)" at (.1 inch, .1 inch) +(4.8 inch, 2.8 inch)
  244.     show control title "Check your filing status"
  245.     doit = 0;
  246.     use dialog box
  247.     if doit 
  248.         case str1
  249.             when 1
  250.                 put "X  " into b18
  251.                 put "   " into b20
  252.                 put "   " into b22
  253.                 put "   " into b24
  254.             when 2
  255.                 put "   " into b18
  256.                 put "X  " into b20
  257.                 put "   " into b22
  258.                 put "   " into b24
  259.             when 3
  260.                 spouse = dg:dgask("Spouse's full name","",25)
  261.                 put "   " into b18
  262.                 put "   " into b20
  263.                 put "X  " into b22
  264.                 put "   " into b24
  265.                 put spouse into e23
  266.             when 4
  267.                 spouse = dg:dgask("Child's full name","",25)
  268.                 put "   " into b18
  269.                 put "   " into b20
  270.                 put "   " into b22
  271.                 put "X  " into b24
  272.                 put spouse into f25
  273.         end case
  274.     end if
  275. end function
  276. function getinput()
  277.     taxes:doit = 0
  278.     define ans
  279.     ans = 0
  280.     call tf:shownote(37,1)
  281.     ans = getname("")
  282.     if taxes:doit = 1
  283.         ans = getaddr("")
  284.     end if
  285.     if taxes:doit = 1
  286.         ans = getcity("")
  287.     end if
  288.     if taxes:doit = 1
  289.         ans = getssn("","")
  290.     end if
  291.     if taxes:doit = 1
  292.         ans = fund()
  293.     end if
  294.     if taxes:doit = 1
  295.         ans = sfund()
  296.     end if
  297.     if taxes:doit = 1
  298.         ans = status()
  299.     end if
  300. end function {getinput()}
  301. function taxmenu()
  302. debug 0
  303. repaint off
  304. date 1 "d-mon-yyyy"
  305. date 2 "d-mon"
  306. date 3 "mon-yy"
  307. date 4 "mm-dd-yy"
  308. date 5 "mm-dd"
  309. time 1 "hr:mn:scam"
  310. time 2 "hr:mnam"
  311. time 3 "hh:mn:sc"
  312. time 4 "hh:mn"
  313. add menubar "tax"
  314. add submenu "1986forms"
  315.     add menuitem "1040EZ" command "message ""1040EZ Form Can Be Installed Here.""" 
  316.     add menuitem "1040A"  command "message ""1040A Form Can Be Installed Here."""
  317.     add menuitem "1040" command "message ""1040 Form Can Be Installed Here.""" 
  318.     add menuitem "W2" command "message ""W2 Form Can Be Installed Here."""
  319.     add menuitem "Tax Tables"  command "message ""TAX TABLES Can Be Installed Here."""
  320. add submenu "1987forms"
  321.     add menuitem "1040EZ" command "message ""1040EZ Form Can Be Installed Here.""" 
  322.     add menuitem "1040A"  command "message ""1040A Form Can Be Installed Here."""
  323.     add menuitem "1040" command "message ""1040 Form Can Be Installed Here.""" 
  324.     add menuitem "W2" command "message ""W2 Form Can Be Installed Here."""
  325.     add menuitem "Tax Tables"  command "message ""TAX TABLES Can Be Installed Here."""
  326. add submenu "1988forms"
  327.     add menuitem "1040EZ" command "message ""1040EZ Form Can Be Installed Here.""" 
  328.     add menuitem "1040A"  command "message ""1040A Form Can Be Installed Here."""
  329.     add menuitem "1040" command "message ""1040 Form Can Be Installed Here.""" 
  330.     add menuitem "W2" command "message ""W2 Form Can Be Installed Here."""
  331.     add menuitem "Tax Tables"  command "message ""TAX TABLES Can Be Installed Here."""
  332. add menu "File"
  333.     add menuitem "Open..." key "O" command "open dialog"
  334.     add menu separator
  335.     add menuitem "Close" type 4 key "W"  
  336.     add menuitem "Save As..." type 4 command "save dialog"
  337.     add menuitem "Revert to Original" command "close;open ""form1040a"""
  338.     add menuitem "Revert to Saved" type 4
  339.     add menu separator
  340.     add menuitem "Page Setup..." type 4 command "Page Setup"
  341.     add menuitem "Page Preview..." type 4 command "Page Preview"
  342.     add menuitem "Print..." type 4 key "P" command "hide controls Print Dialog show controls"
  343.     add menu separator
  344.     add menuitem "Quit" key "Q"
  345. add menu "Edit"
  346.     add menuitem "Cant Undo" type 27 key "Z" command "undo"
  347.     add menu separator
  348.     add menuitem "Cut" key "X"
  349.     add menuitem "Copy" key "C"
  350.     add menuitem "Paste" key "V"
  351.     add menuitem "Clear"
  352. add menu "Tax Forms"
  353.     add menuitem "1986" submenu "1986forms"
  354.     add menuitem "1987" submenu "1987forms"
  355.     add menuitem "1988" submenu "1988forms"
  356. add menu "Process Form"
  357.     add menuitem "Enter Data" command "call taxes:getinput()"
  358.     add menuitem "Figure Tax" command "message ""Tax Computation Routines Can Be Installed Here."""
  359.     add menuitem "Print Return" command "hide controls print now show controls"    
  360. show menubar "tax"
  361. repaint on
  362. end function {TaxMenu}
  363.